function maximo=maximofun(Het,largo,w,configuracion)
    H=1;
    min1=inf;
    max1=0;
        
    if configuracion==0
        for k=1:largo
            configuracion(k)=k;
        end
    end
    
    for k=1:largo
        
        H=H*Het(configuracion(k));
        [MAG]=bode(H,w);

        maxaux=max(MAG);
     
        if maxaux>max1
            max1=maxaux;
        end
     
    end
    
    maximo=max1;

end